﻿Imports Phila
Imports Phila.Sql
Imports Phila.CommonClasses

Public Class India_Info
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If IsPostBack = False Then
                Dim txt As Array
                Dim Keywords As New HtmlMeta()
                Dim Desc As New HtmlMeta()
                txt = RetriveData("select Name, Summary, Description, MetaTitle, MetaKeywords, MetaDescription from ptn_Pages where IsActive=1 and Id=3", 5)
                lblTitle.Text = txt(3)
                lblKey.Text = txt(4)
                lblDesc.Text = txt(5)
                Page.Header.Title = lblTitle.Text
                Desc.Name = "Description"
                Desc.Content = lblDesc.Text
                Keywords.Name = "Keywords"
                Keywords.Content = lblKey.Text
                Page.Header.Controls.Add(Desc)
                Page.Header.Controls.Add(Keywords)
                'If Request.QueryString("id") = "6" Then
                '    strHead = txt(0) & "<div class=""floatright""><a href=""page.aspx?id=6"" class=""archive"">Archive</a></div>"
                'Else
                '    strHead = txt(0)
                'End If
                ltrContent.Text += "<h2>" & txt(0) & "</h2>"
                ltrContent.Text += Server.HtmlDecode(txt(2))

                Session("Breadcrumb") = "&nbsp;&raquo;&nbsp;" & txt(0)
            End If

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class